﻿Imports BusinessLogic

Partial Class Index
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim _Points As New Points()
        _Points.Username = Session("Username").ToString()
        _Points.LoadPointsByUserName()
        litJavascript.Text = "<script language=""javascript"" >window.parent.HideLogin(true,'" & Session("Username").ToString() & "','" & _Points.TotalPoints & "');</script>"
    End Sub
End Class
